用VB程序编写"星星闪烁"

来源：百度知道 编辑：UC知道 时间：2024/05/13 05:31:11
设计一个界面"以黑色为背景,黄色点点为闪烁的星星",要求执行程序后,窗体上的星星在闪烁,单击"结束"按钮结束程序.
刚才“星星闪烁”VB程序调试过程中出现一点问题，语句是：command1.caption="结束",请高手指教！谢谢！

加个Command按钮，加个Timer计时器

Dim n As Integer, x() As Integer, y() As Integer, dx() As Integer

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
n = 36
ReDim x(1 To n), y(1 To n), dx(1 To n)
Command1.Caption = "结束"
Timer1.Interval = 100
Me.BackColor = vbBlack
End Sub

Private Sub Form_Resize()
Randomize
For i = 1 To n
x(i) = Me.ScaleWidth * (0.9 * Rnd)
y(i) = Me.ScaleHeight * (0.9 * Rnd)
dx(i) = 12
Next
End Sub

Private Sub Timer1_Timer()
Static flag As Boolean
Cls
If flag = False Then
For i = 1 To n
CurrentX = x(i)
CurrentY = y(i)
Me.FontSize = dx(i)
Me.ForeColor = vbYellow
Print "★"
Next
End If
flag = Not flag
End Sub